home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / query-1a / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-14  |  5.0 KB  |  160 lines
  1. VERSION 5.00
  2. Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
  3. Begin VB.Form frmMain 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "QBE Example"
  6.    ClientHeight    =   3180
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5925
  10.    Icon            =   "frmMain.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3180
  16.    ScaleWidth      =   5925
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin MSDBGrid.DBGrid DBGrid1 
  19.       Bindings        =   "frmMain.frx":030A
  20.       Height          =   1050
  21.       Left            =   120
  22.       OleObjectBlob   =   "frmMain.frx":0321
  23.       TabIndex        =   7
  24.       Top             =   1590
  25.       Width           =   5685
  26.    End
  27.    Begin VB.CommandButton cmdClear 
  28.       Caption         =   "&Clear Fields"
  29.       Height          =   405
  30.       Left            =   1350
  31.       TabIndex        =   6
  32.       Top             =   2715
  33.       Width           =   1560
  34.    End
  35.    Begin VB.CommandButton cmdexit 
  36.       Caption         =   "E&xit"
  37.       Height          =   390
  38.       Left            =   4650
  39.       TabIndex        =   5
  40.       Top             =   2715
  41.       Width           =   1215
  42.    End
  43.    Begin VB.CommandButton Command1 
  44.       Caption         =   "&Run Search"
  45.       Height          =   405
  46.       Left            =   2940
  47.       TabIndex        =   4
  48.       Top             =   2715
  49.       Width           =   1560
  50.    End
  51.    Begin VB.Data PjSData1 
  52.       Align           =   1  'Align Top
  53.       Caption         =   "QBE Example"
  54.       Connect         =   "Access"
  55.       DatabaseName    =   "D:\PjS Inc\Development\QBE Example\devLog.mdb"
  56.       DefaultCursorType=   0  'DefaultCursor
  57.       DefaultType     =   2  'UseODBC
  58.       Enabled         =   0   'False
  59.       Exclusive       =   0   'False
  60.       Height          =   360
  61.       Left            =   0
  62.       Options         =   0
  63.       ReadOnly        =   0   'False
  64.       RecordsetType   =   1  'Dynaset
  65.       RecordSource    =   "Log"
  66.       Top             =   0
  67.       Width           =   5925
  68.    End
  69.    Begin VB.ComboBox cboCategory 
  70.       DataField       =   "Category"
  71.       DataSource      =   "PjSData1"
  72.       Height          =   315
  73.       ItemData        =   "frmMain.frx":1218
  74.       Left            =   1545
  75.       List            =   "frmMain.frx":1222
  76.       TabIndex        =   1
  77.       Top             =   630
  78.       Width           =   3735
  79.    End
  80.    Begin VB.TextBox txtDescription 
  81.       BackColor       =   &H00FFFFFF&
  82.       DataField       =   "Description"
  83.       DataSource      =   "PjSData1"
  84.       Height          =   525
  85.       Left            =   1530
  86.       MultiLine       =   -1  'True
  87.       ScrollBars      =   2  'Vertical
  88.       TabIndex        =   0
  89.       Top             =   1005
  90.       Width           =   4290
  91.    End
  92.    Begin VB.Label Label2 
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "Description"
  95.       BeginProperty Font 
  96.          Name            =   "News Gothic MT"
  97.          Size            =   12
  98.          Charset         =   0
  99.          Weight          =   700
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   315
  105.       Left            =   120
  106.       TabIndex        =   3
  107.       Top             =   990
  108.       Width           =   1410
  109.    End
  110.    Begin VB.Label Label1 
  111.       BackStyle       =   0  'Transparent
  112.       Caption         =   "Category"
  113.       BeginProperty Font 
  114.          Name            =   "News Gothic MT"
  115.          Size            =   12
  116.          Charset         =   0
  117.          Weight          =   700
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       Height          =   315
  123.       Left            =   435
  124.       TabIndex        =   2
  125.       Top             =   600
  126.       Width           =   1140
  127.    End
  128. Attribute VB_Name = "frmMain"
  129. Attribute VB_GlobalNameSpace = False
  130. Attribute VB_Creatable = False
  131. Attribute VB_PredeclaredId = True
  132. Attribute VB_Exposed = False
  133. Option Explicit
  134. Private Sub cmdClear_Click()
  135.     DBGrid1.Refresh
  136.     ClearFields frmMain
  137.     PjSData1.Enabled = False
  138. End Sub
  139. Private Sub cmdexit_Click()
  140.     Unload Me
  141. End Sub
  142. Private Sub Command1_Click()
  143.     If DoQuery(frmMain, "Log", PjSData1) Then
  144.         'OK
  145.         PjSData1.Recordset.MoveLast
  146.         PjSData1.Recordset.MoveFirst
  147.         MsgBox Trim$(Str$(PjSData1.Recordset.RecordCount)) & "  Records Found!", vbInformation
  148.         DBGrid1.Refresh
  149.         PjSData1.Enabled = False
  150.     Else
  151.         PjSData1.Enabled = False
  152.         'Nothing Found
  153.     End If
  154. End Sub
  155. Private Sub Form_Load()
  156. PjSData1.DatabaseName = App.Path & "\devLog.mdb"
  157. PjSData1.Enabled = False
  158. ClearFields frmMain
  159. End Sub
  160.